home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS065.dsk / BILLS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  3KB  |  93 lines
  1. 10  REM  MON GOES HERE
  2. 100  HOME : PRINT "INSERT PFILE DISK AND HIT RETURN"
  3. 101  INPUT X$
  4. 102 NN = 450
  5. 105  DIM P$(NN)
  6. 110 Z$ = "<CTRL-D>"
  7. 115  PRINT Z$;"CATALOG": HOME 
  8. 120  PRINT Z$;"OPEN PFILE"
  9. 130  PRINT Z$;"READ PFILE"
  10. 140  FOR E = 0 TO NN
  11. 150  INPUT P$(E)
  12. 160  NEXT E
  13. 170  PRINT Z$;"CLOSE PFILE"
  14. 200  REM  INPUT OF INFO
  15. 201  HOME 
  16. 210  INPUT "WHAT IS THE COMPANY ACCOUNT #           ";A$
  17. 220  INPUT "WHAT IS THE COMPANY NAME                ";N$
  18. 230  PRINT "INVOICE # ": INPUT I$
  19. 235  PRINT "ENTER DATE IN THE FORM  MONTH/DAY/YR": PRINT "  E.G 1/17/80"
  20. 236  INPUT D$
  21. 240 M$ =  LEFT$(D$,2)
  22. 241  IF  MID$ (D$,2,1) = "/"  THEN M$ = "0" + LEFT$(D$,1)
  23. 242 DY$ =  MID$ (D$,3,1): IF DY$ = "/"  THEN DY$ =  MID$ (D$,4,1): GOTO 245
  24. 243 DA$ =  MID$ (D$,4,1): IF DA$ = "/"  THEN DY$ = "0" +DY$:DA$ = "": GOTO 246
  25. 244  IF DA$ < >"/"  THEN 246
  26. 245 DA$ =  MID$ (D$,5,1): IF DA$ = "/"  THEN DY$ = "0" +DY$: GOTO 248
  27. 246 DY$ = DY$ +DA$
  28. 248 YR$ =  RIGHT$(D$,2)
  29. 249 D$ = M$ +"/" +DY$ +"/" +YR$
  30. 260  PRINT "ENTER AMOUNT": PRINT "CREDITS ARE ENTERED AS NEGATIVE": INPUT "$";AM$
  31. 265  INPUT "ANY COMMENTS-";C$
  32. 270  HOME : PRINT "THIS IS TO CHECK YOUR INPUT"
  33. 271  PRINT "ACCOUNT #";A$: PRINT "COMPANY ";N$: PRINT "INVOICE #";I$: PRINT "DATE ";D$: PRINT "AMOUNT $";AM$: PRINT "COMMENTS-";C$
  34. 280  PRINT "IF THIS INFORMATION IS CORRECT "
  35. 281  PRINT "    HIT RETURN"
  36. 282  PRINT "IF THERE ARE CHANGES OR CORRECTICB$ = V$
  37. 614 TB = TB +CB +NB +SB:V = TB: GOSUB 6000:T$ = V$
  38. 615 TB = 0:CB = 0:NB = 0:SB = 0
  39. 616  PRINT N$: PRINT A$; TAB( 10);" $";NB$;" $";SB$;
  40. 617  PRINT " $";TB$;" $";CB$;" $";T$
  41. 618  NEXT A
  42. 620  PR# 0
  43. 622  HOME 
  44. 624  FOR X = 1 TO 10: PRINT  CHR$(7): NEXT 
  45. 680  PRINT "END OF PROGRAM  THANK YOU": GOTO 999
  46. 1000  REM  PRINT FOR 90&OVER
  47. 1010  IF NT =  VAL( MID$ (P$(E),71<CTRL-A>N$ = N$ +" ": GOTO 440
  48. 460 P$(E) = P$(E) +N$
  49. 470  REM  INVOICE
  50. 471  IF  LEN(I$) = 9  THEN 475
  51. 472 I$ = " " +I$: GOTO 471
  52. 475 P$(E) = P$(E) +I$
  53. 480  REM  AMOUNT
  54. 481  IF  LEN(AM$) = 10  THEN 485
  55. 482 AM$ = " " +AM$: GOTO 481
  56. 485 P$(E) = P$(E) +AM$
  57. 490  REM  COMMENTS
  58. 491  IF  LEN(C$) >15  THEN C$ =  LEFT$(C$,15)
  59. 492  IF  LEN(C$) = 15  THEN 495
  60. 493 C$ = C$ +" ": GOTO 492
  61. 495 P$(E) = P$(E) +C$
  62. 496 P$(E) = P$(E) +D$
  63. 500  REM  ALL DATA IN
  64. 505  HOME 
  65. 510  PRINT "TYPE IN A 'Y' IF THERE IS ANOTHER ": PRINT "ENTRY FOR ";N$
  66. 511  PRINT "OTHERWISE HIT RETURN"
  67. 520  INPUT X$
  68. 521  IF X$ = "Y"  THEN D$ = "":I$ = "":AM$ = "":C$ = "": HOME : PRINT A$: PRINT N$: GOTO 230
  69. 530  HOME : PRINT "ARE THERE ANY MORE ENTRY'S FOR THE": PRINT "  JOURNAL (Y/N) ": INPUT X$
  70. 531  IF X$ = "N"  THEN 900
  71. 532  GOTO 200
  72. 900  REM  WRITE TO DISK TWICE
  73. 905  PRINT Z$;"CATALOG"
  74. 910  HOME 
  75. 920  PRINT Z$;"OPEN PFILE"
  76. 930  PRINT Z$;"WRITE PFILE"
  77. 940  FOR E = 0 TO NN
  78. 950  PRINT P$(E)
  79. 960  NEXT E
  80. 970  PRINT Z$;"CLOSE PFILE"
  81. 980  PRINT "INSERT BACKUP DISK"
  82. 985  PRINT " AND HIT RETURN WHEN READY"
  83. 989  INPUT X$
  84. 990  PRINT Z$;"CATALOG"
  85. 991  PRINT Z$;"OPEN PFILE"
  86. 992  PRINT Z$;"WRITE PFILE"
  87. 993  FOR E = 0 TO NN
  88. 994  PRINT P$(E)
  89. 995  NEXT E
  90. 996  PRINT Z$;"CLOSE PFILE"
  91. 997  PRINT "END OF DISK WRITE ROUTINE"
  92. 998  PRINT "THANK YOU"
  93. 999  END